home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
101-125
/
scopedisk106
/
snag
/
killer.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-19
|
1KB
|
43 lines
struct IntuitionBase *IntuitionBase;
struct IntuiMessage RetryMsg = {
{
0,0,NT_MESSAGE,0,0,
0,sizeof(struct IntuiMessage),
};
main()
{
struct Screen *AScreen;
struct Window *Window;
struct MsgPort *mport;
IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library",0L);
RetryMsg.Class = RAWKEY;
RetryMsg.Code = 0x34;
RetryMsg.Qualifier = IEQUALIFIER_LCOMMAND;
mport = CreatePort(0L,0L);
FOREVER
{
Forbid();
AScreen = IntuitionBase->ActiveScreen;
if (AScreen->Flags & WBENCHSCREEN)
{
for (Window = AScreen->FirstWindow; Window; Window = Window->NextWindow)
if (!strcmp(Window->Title,"System Request"))
{
RetryMsg.ExecMessage.mn_ReplyPort = mport;
RetryMsg.IAddress = (struct Window *) RetryMsg.IDCMPWindow = Window;
PutMsg(Window->UserPort,&RetryMsg);
break;
}
if (!AScreen->Title)
{
AScreen->Flags &= ~WBENCHSCREEN;
AScreen->Flags |= CUSTOMSCREEN;
}
}
Permit();
Delay(70L);
}
}